home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 18
/
018.d81
/
pixel page
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
924b
|
39 lines
2 ifa=3then63000
3 ifa>.then160
4 print"[147]":lf=0
7 goto100
8 :
10 poke249,224:poke250,204
11 poke251,0:poke252,64
12 poke253,0:poke255,0
15 poke53280,0:sys51456:sys51459
20 poke198,0:wait198,1
30 sys51459
55 print"[147]":lf=0
60 goto63000
90 :
100 v=53248:s=54272
110 pokev+32,.:pokev+33,.:print" [204][207][193][196][211][212][193][210] [206]umber 18"
120 print""
130 printspc(11)"[212]he [195]omet [195]ometh!"
140 print""
150 f$="pixelpg.shp"
157 print" [195]over designed by [202]erry [202]ones"
158 print"[156] using the [203][207][193][204][193][160]pad."
159 ifa=0thena=1:print"[158][204]oading [208]icture":load"unpacker",8,1
160 ifa=1thena=2:loadf$,8,1
166 a=3
170 s=54272:fori=.to23:pokes+i,0:next:pokes+24,15:pokes+5,255:pokes+6,255
175 pokes+12,255:pokes+13,255:pokes+19,255:pokes+20,255:pokes+1,3:pokes+8,3
177 pokes+15,3:pokes+7,7:pokes+14,18
180 print"[145][156][146][208]ress space bar to view cover."
182 print"[208]ress it again to return to menu."
185 poke198,0:wait198,1
190 pokes+4,17:pokes+11,17:pokes+18,17:goto10
200 :
300 :
63000 iflf=0thenlf=1:load"romusic",8,1
63010 iflf=1thenlf=2:load"sidirq*",8,1
63020 iflf=2thenlf=3:load"routines v4",8,1
63030 load"hello connect",8